home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Amos / AMOSList-1297 / AMOSLIST / PalProcs.Lha / PalFromIconBank.AMOS / PalFromIconBank.amosSourceCode
Encoding:
AMOS Source Code  |  1996-07-23  |  780 b   |  51 lines
  1. Set Accessory 
  2.  
  3. Dim C(31)
  4.  
  5. Bgrab 2
  6. Screen Open 0,640,26,8,Hires
  7. Flash Off : Curs Off : Cls 0
  8. Screen Display 0,128,42,640,26
  9.  
  10. Input "Palette or Fade (p/f) >";A$
  11. A$=Lower$(A$)
  12.  
  13. Screen Open 1,16,8,64,Lowres
  14. Flash Off : Curs Off : Cls 0
  15. Screen Hide 1
  16.  
  17. Get Icon Palette 
  18.  
  19. For G=0 To 31
  20.    C(G)=Colour(G)
  21. Next 
  22.  
  23. Screen 0
  24.  
  25. Call Editor 29
  26. If A$="p"
  27.    B$="Palette "
  28.    For G=0 To 31
  29.       B$=B$+Hex$(C(G),3)+","
  30.    Next 
  31.    B$=Left$(B$,Len(B$)-1)
  32.    Call Editor 71,,B$
  33. End If 
  34. If A$="f"
  35.    B$="Fade "
  36.    Print 
  37.    Input "Fade speed > ";A
  38.    Input "Wait (y/n) >";C$
  39.    C$=Lower$(C$)
  40.    B$=B$+Str$(A)-" "+","
  41.    For G=0 To 31
  42.       B$=B$+Hex$(C(G),3)+","
  43.    Next 
  44.    B$=Left$(B$,Len(B$)-1)
  45.    If C$="y"
  46.       B$=B$+" : Wait "+Str$(A*15)-" "
  47.    End If 
  48.    Call Editor 71,,B$
  49. End If 
  50.  
  51. Bsend 2